home *** CD-ROM | disk | FTP | other *** search
/ Sportware Golf / Sportware Golf.iso / pc / setup.inf < prev    next >
Text File  |  1995-09-17  |  2KB  |  74 lines
  1. DefineVariables
  2.   Text    [ProductName] := Sportware Golf           
  3.   Text    [DefaultInstallDir] := C:\SWGOLF
  4.   Text    [IconCmdLine] := SWGOLF.EXE
  5.   Text    [IconFile] := SWGOLF.ICO
  6. EndDefineVariables
  7.  
  8. ;; Setup screen
  9. SetDefaultBitmap off
  10. ShowWindow Maximized
  11.  
  12. Do MyDialog
  13.  
  14. Procedure MyDialog
  15.  
  16. [Number1] := 0
  17.  
  18. ;; Product Introduction Screen
  19. DialogBox 250 50 UseHeader "Sportware Golf Installation" Returns [Number1]
  20.   CText @xy(0,10) 250 50 "From where do you want to run the program?"
  21.   DefPushButton @xy(60, 30) 40 15 "Hard Disk" 1
  22.   DefPushButton @xy(150, 30) 40 15 "CD-ROM" 2
  23. EndDialogBox
  24.  
  25. ;; User dialog for installation directory
  26. Dialog [DefaultInstallDir] 43
  27.   PLEASE CHOOSE YOUR INSTALLATION DIRECTORY
  28.   ON A FIXED DRIVE
  29.  
  30.   Make your choice and press <Enter> or click on OK
  31. EndDialog
  32.  
  33. ;; Create directory
  34. CreateDirectoryIfNecessary [DefaultInstallDir]
  35.  
  36. ;; Copy Projector and DLLs
  37. if [Number1] = 1
  38.   CopyFiles from [InstallFromDrive]:\ to [DefaultInstallDir]
  39.     SWGOLF.EXE
  40.     FILEIO.DLL
  41.   EndCopyFiles
  42. EndIf
  43.  
  44. Dialog [WindowsDirectory] 43
  45.   PLEASE CHOOSE YOUR WINDOWS DIRECTORY
  46.  
  47.   Make your choice and press <Enter> or click on OK
  48. EndDialog
  49.  
  50. If FileExists [DefaultInstallDir]\SWGOLF.GRP
  51. else
  52. ;; Create Program Group and Icon
  53.   if [Number1] = 1
  54.     ProgramManagerDDe
  55.       CreateGroup(SWGOLF,[DefaultInstallDir]\SWGOLF.GRP)
  56.       AddItem([DefaultInstallDir]\SWGOLF.EXE,[ProductName])
  57.     EndProgramManagerDDE
  58.   else
  59.      ProgramManagerDDe
  60.       CreateGroup(SWGOLF,[DefaultInstallDir]\SWGOLF.GRP)
  61.       AddItem([InstallFromDrive]:\SWGOLF.EXE,[ProductName])
  62.     EndProgramManagerDDE
  63.   EndIf
  64. EndIf
  65.  
  66. If FileExists [WindowsDirectory]\SYSTEM\QTIM.DLL
  67. else
  68.    Run [InstallFromDrive]:\QTW\SETUP.EXE
  69. EndIf
  70.  
  71. EndProcedure
  72.  
  73. EndScript
  74.